home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / index.dxr / 00003_tools.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  315 b   |  14 lines
  1. global gMain, gModule2, gSoundManager
  2.  
  3. on mouseUp
  4.   set baseSprite to 11
  5.   set pageNum to the clickOn - baseSprite
  6.   if not objectp(gModule2) then
  7.     alert("Index Error:" & " Tools ")
  8.   else
  9.     mPuppetSound(gSoundManager, "singleClick")
  10.     mGoToMovie(gMain, #tools)
  11.     mGoToPage(gModule2, pageNum)
  12.   end if
  13. end
  14.